您现在的位置是:首页 > Excel技巧>Excel vba实现倒计时功能

excel vba 倒计时-Excel vba实现倒计时功能

发布于2022-04-150人已围观

暂停程序,直到指定时间继续,此时所有的Excel行为,包括手工交互操作,都将被挂起。

这个到时功能,我们主要用到 Application.Wait 来指定时间


摘自-小妖(Office中国)


计算某日离某日还乘多少时间,绝难不倒有点函数基础的同学:

excel vba 倒计时





由于公式中使用了Now函数,所以计算出来的时间是与当前系统时间一致的,可是Now函数有个更新的问题,如果不按F9,它不会自动更新,所以这个倒计时,要想实现每秒跳一下,于是得使用Application,代码依然很传统地写在模块里:excel vba 倒计时



倒计时VBA代码:
Sub Sample()
Do While range("d2") > Now '活动时间未过期即不断循环
    Application.Wait Now + TimeSerial(0, 0, -1) '控制时间
    Application.Calculate '计算工作表
Loop
MsgBox "时间到!"
End Sub

 

以上代码里Application除了控制时间以外,还有个Calculate。


相关文章

文章评论

表情

共0条评论
  • 这篇文章还没有收到评论,赶紧来抢沙发吧~

标签云

站长特荐